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While many so-called database programs have been written -for the 99/4A, the 
overwhelming majority of such programs have taken on such a narrow scope as to 
best be termed "mail lists". Though a mail list is a 
constrain ourselves -forever to only those functions akin 
ludicrous in light of the power of our 99/4A. There are 
possibilities that are generally not available through 
is a strong system of cross-referencing of data, with 
such a system often being referred to as "relational 
possibility is access to information of varying lengths (the mail list always 
formats a specific number of lines. usually about 3 to 8 lines, into one 
record). This article will address the second possibility, that of accessing 
information of varying lengths- This article assumes at least some knowledge of 
TI Extended BASIC, but will be directed to the database novice and will 
therefore avoid coverage of the technical aspects of databases. We will attempt 
to avoid confusion by not using advanced terminology such as K8AM, ISAM, Image, 



form of database, to 
to mail lists is rather 
(at least) two database 
a mail list. The first 
databases encompass! ng 
databases". The second 



Accessing information of varying lengths can be useful in a number of 
situations, though it is certainly not always necessary. One example of a 
situation that would dictate use of variable length data would be if a surgeon 
would have a collection of articles that needed to be accessible at various 
points in the articles. For instance, if one article was on modern surgical 
techniques and the surgeon was interested in only a portion of the article that 
pertained to the human heart, it would be quite convenient for him to be able to 
simply key in "human heart" and receive a printout of only the section of the 
article that pertained to the heart, regardless of whether the passage was one 
line or many lines long. 
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, let's take a look at how a database program could be written to meet 
the requirements of the surgeon mentioned above. We'll assume that the articles 
that the doctor has are in typical 99/4A text -Format and can be loaded into 
Tl-Writer. 

As mentioned above, our objective is to access information based upon 
certain words, known to database programmers as "keywords". Obviously, the 
keywords must somehow be linked to a corresponding text passage. This is done 
with a pointer. To keep matters as simple as possible, we will set up our 
keywords at the beginning of our Tl-Writer file, along with the pointers for 
those keywords. Our keyword list will be placed at the beginning of the file, 
so that the file might have the following structurei 



1 

I 4 lines of keywords 






1 

I 
t ) surgery 

I human heart 1 article 

I section of I (SO 

I article (12 ) lines) 

I lines beginning I 

! at line 14) I 



I 

I 
I 

I 



To further simplify matters, we will assume that keywords can be up to 14 
characters long and must occupy 14 character positions, with the beginning 
pointer occupying 3 character positions and the ending pointer also occupying 3 
character positions. We will us« the line occupied In Tl-Writer (after 
inserting 4 lines for keywords) as the pointer index. Here is how the keyword 
list for the example above can be set ups 

MODERN BURGER Y005054HUriAN HEART 019030 

Once the keywords are entered, the file should be saved in Fixed format, so 
that Extended BASIC can access the file as Relative records. To save the file, 
use PF (Print File), then F DSKx. FILENAME, where "F" indicates a Display Fixed 
80 file format and "x" designates the disk drive number. Once the file has been 
saved in this manner, an Extended BASIC program can be written to access the 
information via the keywords. 

Here Is an Extended BASIC program listing that will access the information 
based on the file structure shown abovei 

30 • DATABASE TEXT READER 
COPYRIGHT 1986 
BYTEMASTER COMPUTER 
SERVICES 
40 OPTION BASE 1 
50 DIM L«(21> 
60 DIM F»(127) 
100 GOSUB 1000 ! 

CATALOG DRIVE 
110 GOSUB 2000 ! 
SELECT FILE 
120 GOSUB 3000 < 

SELECT FROM KEYWORDS 
130 GOSUB 4000 ! 

SELECT OUTPUT 
140 GOTO 5000 ! 
AGAIN? 
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999 END 

iOOO DISPLAY AT < 1,1) ERASE AL 
Li "DATABASE TEXT READER**! "CO 
PYRIGHT 19S6"i"BYTEriASTER CO 
MPUTER SERVICES" 
1010 DISPLAY AT(8, 1)1 "SELECT 
DATA FILE"! "DISK DRIVE (1-5 
) 1" 

1020 ACCEPT AT (9, 19) BEEP VAL 
IDATE("12345")SIZE(-l)iD« 
1030 OPEN ttl8"DSK"8iD*8i".",IN 
PUT , RELATIVE, INTERNAL 
1040 X-l !i ON ERROR 190O 
lOSO INPUT «liA«,X,Y,Z 
1060 INPUT ttliA«,X,Y,Z 
1070 IF X-1 AND Z-60 THEN F« 
(X)"A» I! I-I+l 
1060 IF A«<>"" THEN 1060 
1090 I-I-l I! RETURN 
1900 RETURN 1090 
2000 DISPLAY AT<1«1>ERASE AL 
Li "SELECT A FILEi " !l ON ERR 
OR 2040 

2010 IMAGE ### **«*##«»#» 
2020 J-19 
2030 J- J- 19 
2040 X»0 

2050 J-J+1 II X-X+1 
2060 IF F«(J)<>»" THEN DISPL 
AY AT(X-i-l,l>iUSING 2010iJ,F« 
<J) 

2070 IF X>18 OR F«<J)-"" THE 
N DISPLAY AT(21,1)! "ENTER 8E 
LECTION (#pN-NEXT, P-PREVIO 

USjE-END)!"!"!" ELSE 2050 
2080 ACCEPT AT (23,1) BEEP VAL 
IDATE(DIGIT,"NnPpE»">SIZE(-3 

>i8« 

2090 IF POS("Nn",S«,l)<>0 TH 

EN 2040 

2100 IF P08("Pp",S*,l)<>0 AN 

D J>1B THEN 2030 

2110 IF P08("Ea",8«pl)<>0 TH 

EN 999 

2120 ON ERROR 2900 

2130 IF VAL(S«)>I THEN 2080 

2140 S-iVAL(S«) 

2150 ON ERROR 2600 

2160 CLOSE #1 

2170 RETURN 

2800 RETURN 2170 

2900 RETURN 2080 

3000 DIM K«(16),B(16),E(16) 

3010 ON ERROR 3900 ii OPEN # 
2x "DSK"«cD»«t"- "«iF»(S) jRELATIV 

E, FIXED 

3030 FOR J-1 TO 4 

3040 L INPUT «2iA« 

3050 FOR K-1 TO 4 

3060 C'-J«4-3+K-l II K*(C)»SE 

G«(A«,K*20~19, 14)11 IF K«(C) 

«RPT*(" ",14) THEN 3080 

3070 B(C)-VAL(SEG»(A«,K«20-5 

,3)) II E(C)-VAL<SEG«(A«,K«20 

-2,3)> 



3080 NEXT K 

3090 NEXT J 

3100 DISPLAY ATdyDERASE AL 

Li "SELECT A KEYWORD! "i ""i "# 

KEYWORD RECORDS " 

3110 IMAGE #tt tttt*tttttt*tttttttt#tt* 

#«# 
3120 IMAGE tttt »tt#tttttttttttttttt« 
## ### 

3130 FOR J"l TO 16 ii Z->E(J) 
-B(J)-M 11 Z«-STR«<Z>!t XF B 
(J)-0 THEN Z»-"" 
3140 IF (J+3)/4-INT((J+3)/4) 
THEN DISPLAY AT(J-t-4, 1) lUSZNG 

3110iJ,K«(J),Z* ELSE DISPLA 
Y AT(J-i'4, 1)!U6ING 3120iJ,K«( 
J),Z« 

3150 NEXT J 

3160 DISPLAY AT(22, 1) i "SELEC 
TXONi 1" 

3170 ACCEPT AT (22, 12) BEEP VA 
LIDATE(DIGIT)8IZE(-2)iC 
3180 IF 016 OR K«(C)-RPT«(" 

",14) THEN 3160 
3190 CLOSE #2 ii RETURN 
3900 DISPLAY AT(20, 1) i "FILE 
IS NOT A PROPERLY FORMATTED 
DATABASE FILE" ii F«(S)»"" i 
I RETURN 110 

4000 DISPLAY AT (1,1) ERASE AL 
Li "OUTPUT TOi"i""i"l- SCREEN 

(WRAP TEXT) "I "2- SCREEN (28 

COLUMNS) "I "3. PRINTER, DISK 
, ETC. "I ""I "SELECTION! 1" 
4010 ACCEPT AT(7,12)BEEP VAL 
IDATE ( " 123" ) SI ZE (-1 ) I Z 
4020 IF Z-3 THEN DISPLAY AT( 
12, 1)1 "OUTPUT DEVICE! "I "PIO" 

II ACCEPT AT (13,1) BEEP SIZE 
(-28)!P« II OPEN «3iP« II Y« 
O 

4030 CALL CLEAR Ii DISPLAY A 
T (23, 1)1 "ONE MOMENT..." ii O 
PEN tt2i"D8K"S(D»«c"."8iF«(S),RE 
LATIVE, FIXED 
4040 FOR J»B(C)TO E(C) 
4050 LINPUT #2,REC J-liA* 
4060 ON Z GOSUB 4400,4600,46 
00 

4070 NEXT J 

4060 IF Z<3 THEN GOSUB 4950 
4090 ON ERROR 4900 i i CLOSE 
«2 II CLOSE #3 
4100 GOSUB 4500 i i RETURN 
44<X) ON ERROR 4450 
4410 IF Y-0 THEN Y«-2 
4420 Y-Y+3 II L*(Y)-8EG«(A*, 
1,28)11 L«(Y+1)-SEG»(A*,29,2 
8)1! L»(Y+2)-SEG«(A»,59,28) 
4430 IF Y-19 THEN GOSUB 4950 

II Y-0 
4440 RETURN 
4450 RETURN 4420 
4500 PRINT ""I "PRESS ANY KEY 

TO CONTINUE" 
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4510 CALL KEY(5,KYpST)ii IF 
ST<1 THEN 4510 

4520 CALL CLEAR ii RETURN 
4600 B»«SEG*(A«,l,28)ii X»0 
1 1 H<bO 1 1 G»0 

4610 B»-SEG»(A»,l,28>ii X-0 
I t H»0 8 I G-O 

4620 IF POS(B»," ",l)-0 THEN 
4640 

4630 IF SEG»(B»,LEN(B»)-1)<> 
" " THEN C»-8EG»(B»,LEN(B»), 
l}StC« II B«-SEG»(B«, 1,LEN(B» 
)-l)ii X-X+1 II IF LEN<B«>>1 
THEN 4620 

4640 IF B»"RPT»<" ",LEN(B»)) 
THEN 4660 ELSE Y-Y+1 ii L*(Y 

Y=21 THEN GOSUB 4 



)=B» I 
950 II 
4650 G 



IF 
Y-0 
■G+l 



4660 
4700 
4800 
4810 
4900 
4950 
21 



II H-H+LEN(C«)ii 
B»"SEG» ( A« , G» 28-H+ 1 p 28-LEN < C 
•))ii C»-"" II IF LEN(B»)>1 
THEN 4620 

RETURN 

RETURN 4660 

PRINT «3iA* 

RETURN 

RETURN 4100 

CALL CLEAR ii FOR M»l T 

II DISPLAY AT<M,l)iL«(M 
>ii NEXT M It DISPLAY AT<23- 
1)1" PRESS ANY KEY TO CONTIN 
UE" 

4960 CALL KEY<5,KY,8T) ii IF 

ST<1 THEN 4960 

4970 DISPLAY AT(23, 1) j "ONE M 

OMENT..." II FOR M-1 TO 21 i 

I L»<M)>""" II NEXT M 11 RETU 

RN 

5000 DISPLAY AT ( 1, 1 ) i "PRESS" 
I" 1. TO ACCESS ANOTHER DISK 
":" 2. TO ACCESS THE SAME DI 
SK"i" 3. TO END" 
5010 CALL KEY(5,KY,ST)ii IF 
ST<1 THEN 5010 ELSE ON KY-4S 
GOTO 100,110,999 



The program listed above will 
allow establishing 2032 keywords on 
one disk! When the program is run, it 
automatically finds all DISPLAY FIXED 
80 -files on disk and allows selection 
from any o-f those -files. Once a file 
IS selected, the program automatically 
allows selection from any keyword in 
that file- Files without a properly 
formatted keyword index are no longer 
recogni zed i n that sessi on as a 
passible database file and the list of 
available files is offered for a new 
selection. Output can go to printer, 
disk or screen. Screen output can be 
unformatted or with words wrapped to 
the next line. 



multi-record database program. Now, 
if we could just find time to put an 
encyclopedia on disk-... 




by Barry A. Traver 

STANDARD I lA 2XB EA 4B 5A 6B 7B 9B 

This is the second in a series of 
articles on using assembly language 
programs with Extended BASIC. (See 
the September 1985 issue of Super 99 
Monthly for the previous article, 
"DISPLAY AT in Text Mode from Extended 

Chronologically second, the 
article is logically first, 
has taken months to thi nk 
and test out an optimum 
for combining Extended BASIC 



BASIC") 
present 
but it 
through 
approach 



with assembly language. 

Jim Peterson of Tigercub Software 
has put together two excellent disks 
full of "Nuts 'n' Bolts" Extended 
BASIC subprograms. What I propose is 
that the Extended BASIC programmer add 
to that a similar library of assembly 
language programs that may be accessed 
from Extended BASIC. The idea in both 
cases, . of course, would be that the 
Extended BASIC programmer would choose 
from these libraries the particular XB 
subprograms or a/1 programs he would 
need for a particular Extended BASIC 
program. 

It is not difficult to do at all| 
in fact, it's as simple as 1-2-3- All 
you need (after you have chosen which 
a/1 programs you want to use) is to 
include them in »n AGENDA. The AGENDA 
is composed of three partsi (1) the 
SETUP (which itself has three parts), 
(2) the "COPYLIST" (the individual a/1 
routines you have chosen), and (3) the 

First, the SETUP (which 
ordinarily need never be changed) is 
composed of three parts, by which the 
following tasks are accomplishedi (1) 
SET UP the Extended BASIC EQUates, (2) 
SET UP some required space (general 
Workspace plus perhaps a place for 
STRING storage), and (3) SET UP a safe 
return to Extended BASIC. 



So , there you hav< 



it — 



Second, the "COPYLIST" is the 
part that changes from one 
occasion to another. It is composed 



only 
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D-F COPY directives -for the 
decided to make use of. 



source code -files -for the a/1 programs you have 



Third, the END is simply the END. That's all there is to iti it 
simple as 1-2-3! 

Since it's easier to show than it is 

examples given should make everything cli 
to repeat as comments in the code for the 

that also appears in SETUP and END, and 
it is not necessary- > 



to eKplain, careful study of the 
«r. (For the sake of clarity, I like 
individual a/1 programs in-formation 
I recommend that you do the same, but 



The first example is a CALL LINK ("KEYR",R»). This i\ 
purposes. For one thing, it is a good substitute for CALL 

a screen "glitch" in text mode. For another, it is a 
the following frequently used codei 

100 CALL KEY<0,K,S> 
110 IF S-0 THEN 100 
120 R«-CHR«(K) 



useful for two 
KEY, which usually 
useful "shorthand" 



The second example is a very • 
in command mode, except that it 
by Craig Miller — does not cli 
don't like my CALL LINK("NEW">, 
alternative way!). 



imple CALL LINK("NEW">, which is similar to NEW 
— unlike the CALL LOAD (-31962, 100, 124) noted 
>ar the screen (I've found it useful, but if you 
you can easily modify the code to do it his 



One final recommendation. If you put a/1 programs within XB subprograms 
with passed parameters, you don't have to write CALL LINK every time you want 
to access the a/1 routine. For example, if you use CALL LINK("KEYR",R«) 
frequently and want to save on your typing, add the following XB subprogram to 
your XB programi 

30000 SUB KEYR (R«> i t CALL LINK 
<"KEYR",R«)ii SUBEND 

Then all you have to 
simply say CALL KEYR(R«)> 

I have discovered that with this approach, using assembly language pro- 
grams with Extended BASIC is as simple as 1-2-3. (I only wish I could have 
discovered an equally easy way to work out the approach to begin with, and then 
you wouldn't have had to wait so long for this article!) I am sure, however, 
that many further refinements are possible, so I will be happy to receive any 
suggestions you might like to send, and we may be able to share some of them in 
future issues of Sap*r 99 Monthly, 



do in your main program to access your a/1 program is 



« ASENDAi 

« 
* 

* Purpose! 

* combine 
« It's as 



An Extended BASIC - assembly language utility 
by Barry Traver, 835 Green Valley Drive, 
Philadelphia, PA 19128 (215/483-1379). 



to put together the complete 
Extended BASIC with assembly 
simple as one-two-three! 



agenda needed to 
language routines 



« (1> SETUP 

COPY "DSK2. SETUP" 

» (2) "C0PYLI8T" (This changes from one occasion to another.) 

COPY "D8K2.KEYR/8" 
COPY "DSK2-NEW/S" 

« (3) END 



END 



— > 
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« KEYR/Si 

« 

* 



* 
* 
* 
« 
« 
« 
« 
* 
« 
« 
« 



An EKt»nd»d BASIC- 

by Barry Travvr, 

Philadvlphia, 



«smefflbly language utility 
835 Gracn Vallay Drive, 
PA 19128 (215/483-1379) 



''HT??*!!!* *° P'^°vid» a CALL KEY alternative that 

Slii ?« SH^JITh* •'^'^•rr "Olitch" in tent mode. 
Almo, to provide an alternative for the folloMino 
frequently-ueed EKtended BASIC codei *°**°wi"0 

100 CALL KEY<0,KpS> 

110 IF S-O THEN 100 

120 R««CHR«(K) 
A CALL LINK<"KEYR%R«) will acco«pli.h the i 

alJIil tAir^i" fS'^iK*"?',? ^?*-^ KEYR<R«> will do the 
eame thing, if the following XB mubproaram is addadi 

30000 SUB KEYR(Rft)ii rail i tkii^/^L-^s^h .^ir.~2*Ei 



DEF KEYR 
» The following mrm included in SETUPi 



* 
« 
« 
« 
« 
« 
* 
* 
» 



KEYDEV EQU 
KSCAN EQU 
STATUS EQU 
STRASG EQU 



>8374 
>201C 



s 



1 

J 



>2010 



ws 

STRING BSS 



String Storage Space 
(actually, only 2 bytes 
really required) 



KEYR LWPI US 



Kl 



CLR ttKEYDEV 



« Similar to 

CALL KEY(0,K,S) 



BLWP SKSCAN 

MOVB eSTATUS.Rl 

COC aPRSTST,Rl 
JNE Kl 



MOV 

LI 

MOVB 

CLR 

LI 

LI 



ttKEYOEV,QSTRING 
R5, >010O 

R5,9STRING 

RO 

Rl,l 

R2, STRING 



* Does S-O? 

* If so, stay in loop 

« Move K to buffer 

« Set string length to 1 



« 
* 



Not an array 

Use 1st parameter 

Location of string 



BLWP QSTRASG 



B 



ARETURN 



PRSTST DATA >2 



• Iflif 



* Pass CHR«(K) to XB 

* Return to XB program 

» "Press test" (i.e., SOO) 



) 



« NEW/Si 

» 

* 



An Extended BASIC-assembly language utility 
by Barry Traver, 835 Green Valley Drive, 
Philadelphia, PA 19128 (215/483-1379) 



» 

« 
» 

* 
« 

« 

» 



Purposes to provide an 
LINK ("NEW") that is th 
immediate mode (useful 



XB statement (i.e., CALL 
t equivalent of NEW in 
at end of programs) . 



This program provides the equivalent of a CALL 
LOAD (-31952, 255, 231, 255, 231), although Craig Miller 
in his excellent list of CALL PEEKs and CALL LOADS 
in his fine Night Mission book mentions CALL 
L0AD(-31962,100,124) an equivalent for NEW which 
will also clear the screen, if such is desired. 
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DEF NEW 



« Th» •following «r» includad In 8ETUP1 



« 
* 
« 
« 



GPLWS 
STATUS 

MS 



EQU 
EQU 



>a37C 



NEW 



LWPI 

LI 

MOV 



WS 

R1,>FFE7 

Rlpa>8330 



d«cim«l 2SS,231 
Mov» 2S5,231 to MMiory location 



MOV Rl,a>a332 



B 



SRETURN 



Mov« 255,231 to nmiiory location 
-31950 



« Th» -folloMlng is Included In A6ENDA1 



« SETUP B 

» 
« 



END 

An EKtend«d BASIC - asssnbly languaga utility 
°^r,?^r'^y Travar, 835 Graen Vallay Driva, 
Philadalphia, PA 19128 (215/483-1379) ! 



* Purposai 

* coRibina 
« It's as 



to provida -for genaral houa 
Extendad BASIC with assanbly 
simpla as one-two-thraa! 



houaakaapi 



ig naadad to 
anguaga routinas 



« (1) Set up Extended BASIC EQUatea (See E/A manual. 



pp- 415-416) 



ERR 

FAC 

GPLWS 

KEYDEV 

KEYVAL 

KSCAN 

NUMASG 

NUMREF 

STATUS 

STRASG 

STRREF 

VMBR 

VMBW 

VSBR 

VSBW 

VWTR 

XMLLNK 

XRTN 

YRTN 



EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



>2034 
>834A 



>8374 



>201C 
>200B 
>200C 



>2010 
>2014 
>202C 
>2024 



>2020 
>2030 
>2018 
>B377 
>8376 



error reporting utility 
floating point accunmlator 
gpl workspace 
key device 
key value 
key scan routine 
numeric assignment 
get numeric parameter 
status register 
string assignment 
get string parameter 
vdp ram multiple byte read 

multiple byte writi 
single byte read 
single byte write 
write to register 
rom utilities 



vdp ram 
vdp ram 
vdp ram 
vdp ram 
link to 
X return 
y return 



« (2) Set up general Work Space and string storage sp 



MS 
STRING 



BSS >20 



designate workspace register 
string storage 



« (3) Set up safe return to Extendad BASIC 



DEF RETURN 



RETURN 

« 



LWPI 

B 



GPLWS 
a >006A 



load gpl workspace 

return to extended basic, with 
status byte cleared (thanks to 
Paul Charlton -for this one!) 
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by 8t>van Szymkiawiczp MD 

STANDARD I lA 2EA 3B 4B 5A 6B 7B 9BC 

L««t »umm«r, « friend q«v» im «n ancient but r»p«ir*bl« terminal and told 
ma to quit ariping about not having an 80 column display. Wall, fixing tha 
terminal wa« easy enough but ueing it as an alternate ecreen required reworking 
the BASIC editor, not to mention cuetomizing any program I wanted to u" o" it- 
I put It aaide and went onto other projects- Then I began learning FORTH and 
again longed for an 80 column display to see the entire program screen «t one 
time? Fortunately, the creators of TI FORTH built into the language provisions 
for using alternate input and output devices. 

Using alternate I/O devices is really quite simple but to build routines 
to use thJm requires an understanding of PABs <P»ripheral Access Bl°^k9). This 
information is found in both the FORTH manual and the Editor Assembler manual 

and should be read before attempting your own .fl^**'"*^* 4^° .!^°t;^ih°?;. innit 
article follows step by step the screen for making an RS232 port both the input 

and output device of the TI- 

First, be sure the file I/O routines have been loaded for use. This can 
be done by -FILE but if the routines are already loaded time wjll be wasted, ft 
better way Is to use CLOAD which begins loading a acreen only if *^2«. "?r° 
following it is not currently in the dictionary- Make certain the file I/O 
routines are located starting at screen 68. 

DECIMAL 68 CLOAD STAT 

The input and output files are created by the defining word FJLE- Note 
that the PAB address <PAB-ADDR> for the file TERMIN Is 16 bytes into the area 
fo? PABs (using the variable PABS) and that the PAB VDP buffer (PAB-VBUF> is 

tSL b??: pr«:SinS it. PABS may reside -nywhjtre in VDP ««" " 'oPScSSlnS'^hS 
not overlap onto an area already being used. However, the byte preceding the 
PAB must be the PAB-VBUF as a requirement for alterate I/O d"^^"?- ^^^7" *SS 
PABs will be used instead of the display and the keyboard, a buffer in RAM 
(PAB-BUF) does not need to be defined, thus the O is used. 



PABS 16+0 OVER 1- FILE TERMIN 
PABS 48 -(• O OVER 1- FILE TERMOUT 

Now the alternate I/O procedure (named TERMINAL) can be defined. The file 
word mS^t bS SsiS "rst to make it the ref«-enc«J file. A PAB is created by 
SET-PAB for an Input file from the second RS232 port and is opened. Default 
values open the file as sequential, fixed record length, and displayable data- 

I TERMINAL 

TERMIN SET-PAB INPT F-D" RS232/2.BA-9600.CR.EC" OPN 

The first byte of the PAB is the I/O opcode of the PAB. By changing it to 
a 2 IhZ file is to be read. With alternatS I/O devices the usual RD procedure 
is unnecessary. 

2 PAB-ADDR VSBW 

The fifth byte of the PAB is the record length, which will always be 1 for 
the input routine- This may also be changed using the REC-LEN routine. 

1 PAB-ADDR 4 + VSBW 
The sixth byte of the PAB is the character count, which again is always 1 

— > 
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for th« input routina. 

1 PAB*ADI)R 5 + VSBW 

n^MiJzt^\l^* ci^T^J'i^ -ddr... im »tor«d In ALTIN so that FORTH can u«o tho PAB. 
SiSd * ^ iApStl * * ''* • ' Indicating that no alt«rat« d*vica is to bi 

PAB-ADDR ALTIN ! 

**^i^t. tha twrminal must also bo tho output davico of the camau*mr 
f?^J:iS*5rh' ^'t'o*!^ *"'' COR-COMP I/O cards allSw on. sir iai port to brSSiJid 
i««iK2^'**oir*7*' PABs providsd on* PAB is input and ths othor^^tput- thCI? 

f S^rC ^T^*Jf '^h"^"? •***?*! V lik* th. first SKCspt ths PAB is tS bi la-ittSA 
to only. This is dons by using a 3 instsad of a 2 in ths first PAB byts. 

TERHOUT SET-PAB OUTPT F-D» R8232/2 .BA-9600.CR.EC** OPN 

3 PAB-ADDR VSBW 1 PAB-ADDR 4 + VSBW i PAB-ADDR 3 + VSBW 

PAB-ADDR ALTOUT ! | 

rt-w4^-*"*^ii' i!;^? "*";* ''• *,*^y to 0»t b«ck to using ths consols as ths I/O 

I CONSOLE 

O ALTIN ! O ALTOUT ! TERMIN CLSE TERHOUT CLSE | 

That's it- Now, to uss an 80 column tsrninal in FORTH lust LOAD ths 

"SoI'cOnSSle *^g?tJ^2?i*^n H^°.'"*^-'^^ ""^^t ^° ^^- consols ksyb^a?d and ScrlS? 
typs CONSOLE- Altsrnats I/O dsvicss may bs ussful for a numbsr proiscts 

^li?B?. SJiSri"' **" "•• e* • t«^"'inal. It may bs h.lpful in data col li^^iSn? 

multipls displays or svsn tsrminal smulatlon- A limitation doss crop up at 

*'!!!!'" ^■P"''?' >io*«vsr- Ths FORTH main program outputs and inputs data at ths 

sxtra display araa. Also, bsMara of tha SWCH and UNSWCH routinas for printinaT 

?p21!?KiAr°'^**"u '=^*"«* ^!rT°""^ '"^^ »^o"ld t** "odifiad to accommodata usiSi 
Jr^JI^i'H^."?'*"''*'^' u*" othar functions which do not manipulataVDP mamory ?S 
craata a display or changa ALTIN or ALTOUT Hill work normally- 

1-h. ?i??«Jl!!! •*^iJ?^ "^^°" P will not work with tha tarminal display I sumbit 
^fv, iollowing •ditor for tsrminal uss- I will not dwall on its prbgram sinca 

S^t« fS? ?:s5«7urii^"H'^ *3 ":**• ^^•^'^ ^r -"^^tor- i .dmit my^Srstad ;"" 

l^?Sv-ISn*- ^oSi^^'^nS??* *"«^^«i"«=aj am not by natura a programmr, I walcoma 
improvamants and/or additions from thosa who mrm. 



SCREEN 90 

< RS232 TERMINAL SUPPORT ) 

1 BASE->R DECIMAL 68 CLOAD STAT 

3 PABS 16+0 OVER 1- FILE TERMIN 

4 PABS 48+0 OVER 1- FILE TERMOUT 

6 I TERMINAL 

I l^Til^^ SET-PAB INPT F-D" RS232/2-BA-9600.CR-EC" OPN 

I 1 p2b-SSdR rf vIbw'^^'^^'^ ^ * ^®^ PAB-ADDR ALTIN ! 
10 TERMOUT SET-PAB OUTPT F-D" RS232/2-BA-9600.CR-EC" OPN 

Ik ? E?^"^^^'^ '^S^ ^ PAB-ADDR 5 + VSBW PAB-ADDR ALTOUT ! 

12 1 PAB-ADDR 4 + VSBW i 

13 ' 

ii L 52I!i?-^ O ALTIN ! O ALTOUT ! TERMIN CLSE TERMOUT CLSE | 
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SCREEN 91 



O 

1 

2 
3 
4 

5 

6 
7 

e 

9 
10 

11 

12 
13 
14 
15 



O 
a 



I 

8 

s 
I 

R 



I 



32 EMIT O CURSE 
1+ 64 MOD 0« 9 



; 



SCREEN 
< 



O 
1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

SCREEN 

O 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

SCREEN 94 



( TERMINAL EDITOR ) 
BASE->R DECIMAL 

VARIABLE T-BUFF O VARIABLE CURSE VARIABLE Zl VARIABLE Z2 
VARIABLE BUFF 80 ALLOT 

ID# - •' SCREEN *• SCR . 25 EMIT % t CHAR3 EMIT EMIT EMIT ; 
TOP 9 9 10 CHAR3 5 1 DO 9 I 48 + 9 CHAR3 LOOP 9 13 10 CHAR3 

32 EMIT . " O. ..... O O" 

-" O" 13 10 EMIT EMIT | 

SIDE 10 1 DO 7 1 DO 32 EMIT LOOP 13 10 I 48 + CHARS LOOP 

6 O DO 7 1 DO 32 EMIT LOOP 13 10 I 65 + CHAR3 LOOP 6 1 DO 

EMIT LOOP 13 46 49 CHAR3 ; 

MARK T-BUFF CURSE + i x CHN& MARK C 

BELL 7 EMIT ; « CLR 12 EMIT i 

HOME 25 EMIT 4 1 DO 10 EMIT LOOP 9 EMIT 

NEWLINE DUP 64 MOD 0> | i OLDLINE DUP 

>BASE — > 

92 

TERMINAL EDITOR ) 

BASE->R DECIMAL 
s UP CURSE 64 - 
ENDIF I 

1 DOMN CURSE 64 + DUP 1023 > IF BELL DROP ELSE CURSE • 

10 EMIT ENDIF 
t LEFT CURSE DUP 0" IF BELL DROP ELSE 1- OLDLINE IF 32 31 13 

CHAR3 10 1 DO 9 EMIT LOOP ELSE 8 EMIT ENDIF CURSE ! ENDIF ; 
I RIGHT CURSE 1+ DUP 1023 > IF BELL DROP ELSE NEWLINE IF 

9 10 13 CHAR3 32 EMIT ELSE 28 EMIT ENDIF CURSE ! ENDIF i 
■ TAB BEBIN RIGHT MARK C 32 - 0« CURSE 1023 « OR UNTIL 

BEGIN RIGHT MARK C 32 - CURSE 1023 » OR UNTIL i 
I STED CURSE 16 OVER 64 / DO 64 O DO DUP T-BUFF + C EMIT 

LOOP 9 10 13 CHAR3 32 EMIT LOOP DROP HOME | 



DUP 0< IF BELL DROP ELSE CURSE ! 31 EMIT 



1 + 



R->BASE — > 

93 
( TERMINAL EDITOR ) 

BASE->R DECIMAL 

8 DET O Zl ! CURSE BEGIN DUP 1+ 64 MOD WHILE 1 Zl +! DUP DUP 
1+ T-BUFF + C DUP EMIT SWAP T-BUFF + C! 1+ REPEAT 32 SWAP 
T-BUFF + C! 32 EMIT 8 EMIT Zl DO B EMIT LOOP i 

I 1ST O Zl ! 32 Z2 ! CURSE BEGIN DUP Z2 DUP EMIT SWAP T-BUFF 
+ DUP C Z ! C! 1+ DUP 64 MOD WHILE 1 Zl +! REPEAT 
8 EMIT Zl O DO 8 EMIT LOOP « 

s START DUP SCR '. CLR TOP SIDE HOME BLOCK T-BUFF ! 

O CURSE ! STED i 

< IF DUP START THEN DROP s 

> IF DUP START THEN DROP % 



s 



NEXT SCR 
LAST SCR 



1+ DUP DISK_HI 
1- DUP DISK LO 



B RETURN CURSE DUP 64 / 1+ 64 « SWAP - O DO RIGHT LOOP ; 
R->BASE — > 
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( TERMINAL EDITOR ) 

BASE->R DECIMAL 

s ROW CURSE 64/5 < COL CURSE 64 MOD ; 

: ROWAD DUP 64 « T-BUFF + | i BLANKROW 80 32 FILL i 

I MROW 32 O DO OVER OVER ! 2+ SWAP 2+ SWAP LOOP DROP DROP ; 

t POSITION BEGIN 1- DUP WHILE OVER EMIT REPEAT DROP DROP ? 

I DELL ROW ROWAD BUFF MROW ROW CURSE Zl ! BEGIN DUP 15 - WHI 
DUP ROWAD DUP 64 -»- SWAP MROW 1-*- REPEAT ROWAD BLANKROW HOME Zl 

64 / 64 » CURSE ! ROW O DO 10 EMIT LOOP STED Zl CURSE ! 
28 COL 1+ POSITION 10 ROW 1+ POSITION i 

1 INSL 15 BEGIN DUP ROW - WHILE DUP ROWAD DUP 46 - SWAP MROW 1- 
REPEAT ROWAD BUFF SWAP MROW CURSE ! DUP Zl ! HOME 64 / 64 » 
CURSE ! ROW DO 10 EMIT LOOP STED Z! CURSE ! 28 COL 1+ 
POSITION 10 ROW 1-t- POSITION | 

TERMOUT SET-PAB OUTPT F-D" RS232/2.BA*9600.CR.EC'' OPN 
3 PAB-ADDR VSBW 1 PAB-ADDR 5 + VSBW PAB-ADDR ALTOUT ! 
1 PAB-ADDR 4 + VSBW 9 

I CONSOLE O ALT IN ! O ALTOUT ! TERM IN CLSE TERMOUT CLSE ; 
R->BASE — > 
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SCREEN 95 
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< 



TERMINAL EDITOR ) 

->R DECIMAL 
EDIT START BEGIN KEY DUP 27 - 
8 OF LEFT ENDOF 

DOWN ENDOF 

BELL ENDOF 

I ST ENDOF 

ENDOF 
ENDOF 
OF HOME ENDOF 

DUP 31 SWAP < IF DUP EMIT DUP 



10 OF 
7 OF 
12 OF 
29 OF DELL 
20 OF NEXT 



WHILE 


CASE 


28 


OF 


RI6HT 


31 


OF 


UP 


9 


OF 


TAB 


127 


OF 


DET 


11 


OF 


IN8L 


22 


OF 


LAST 


13 


OF 


RETURN 


CHNG 1 CURSE +\ 



ENDOF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 
CURSE DUP 



1024 ■ IF HOME THEN NEWLINE IF 13 EMIT 10 EMIT 9 EMIT THEN 
UPDATE THEN ENDCASE REPEAT DROP 12 EMIT t 
I ED SCR EDIT | 

R->BASE 



CORRECTIONS! 

Dvcmnbsr l<^5i 
EMt»nd«d BASIC 
corr«ct •actor 



Th« r«f«r»nc* to th« numbsr o-f 
fflodula to disk via th« GRAM Kr 
count is 204. Also, "conmOlv" 



ick»r"^" 
warn mil 



r*quir»d -for saving th 

was incorract. Ths 
spsllsd as "council". 



In tha EKtandsd BASIC Link articla, ths sxanpls listing on pags 6 should havi 
read "DSKl.SCREEN/O" instead of "DSKl.SCREEN/S". 



In ths articls 
chained. Perh^ 
the meantime a 

SHOW NEWS 



?9' Ftst W«t 'M 

Dm of thi ujor spring ition for 
?9'tri Mill be 99' Ftst Nest *6b in 
Los AoQeles, now only days <Hsy. 
Vendors currently scheduled to appear 
include 4a fen booths retained 
available at press tiH, but Kill 
surely be occupied by the shoH dateli 

Stptr 99 HoBihh 
Hillers Braphics 

hoiii umnn 

Kent Thoepson 

Holees and Coepany 

HYARC 

Coipuserve Infonation Services 

The Source 

Asgard Software 

SteHirt Coipany 

Dijit Systns 

99'er User Sroup Association 

Texaefflts 

Coi;«tef Shopptr 

mHOptBiiit 

Rfti 9iU 

T.A.P.E., ltd. 

Data Systces 

DatiBioTics 

Irish Input 

Several ncH products Hill be 
shoNfi, including a net* hardware device 
froi ftiUers graphics. Details of the 
device are not being released, but 
rueor has it the device Hill be a 
peripheral expansion card that Hill 
include a Z80 eicroprocessor on board. 
The only clue released by the fire is 
*the deciul nuiber 15*. a rather 



CHI Chaining programs, no mention was made 
ps a full tutorial on that subject may ba 
inimal approach would be to CALL DELSPRI 



of sprite data being 
appropriate, but in 
TE<ALL>. 



vague hint that has users eager to sn 

Hhat Hillers Sraphics has in store for 
9^'ers for 19B6 after their 1985 
release of the highly acclaieed 6hM 
Kracktr". 



Our owi publishing fire. 
fiyteaaster Coeputcr Services, hi 1 1 
debut two disk softnare packages. One 
Hill be a hodge-podge of useful 
prograes and the other hi 11 be a 
sptciilized database. In addition, 
Stptr 99 Hottthlf Hill have a lajor 
announceient at the shoH. 

Asgird SoftRare Hill be 
introducing at least three nen 
softHSre offerings. 

Approxiutily 2000 users kf 
expected to attend the 99' Fest Nest 

'86 shoH at the Shrine Auditoriui in 
los AngelH on March 1 and 2. Next 
lonth, Hi'll have coeplete cavtragt of 
the shOH. 



GRAM KRACKER^" 

STANDARDi lA 96 ISA 

The coepleted lanual and disk for 
6K have noH been released. Overall, 
the eanual and disk represent an 
excellent piKS of Hork. 

There are a feH problees Mith the 
prograes on the disk. First, the 
NEMCHARS prograe accesses CHARAl files 

- JANUARY 1966 11 
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froi Tl and, nhile flillers Sraphics 
knsH of soH user eodifications, it 
Mas not discovered until after release 
of the disk that TI had apparently 

rel eased lore than one versi on of 
their TI-Mriter upgrade disk that 

included the CHARAl file. Versions 

that use 8 pixel high characters Hill 

appear nithout the top pixels shoving 

because BASIC only loads data for 7 

pixels. A fix nas not available by 

prHs ties, but one nill likely be 

available for next lonth's issue. 

AdditioflBlly, Nhen the 6R0K 
portion of TI-Hriter is loved tiith a 
utility on the 6K disk, the Foriatter 
is not accessed properly. The fix is 
very siiple. Using a sector editor, 
find the first sector of the FORNAl 
file (using Advanced Diagndstics use 
FF FORNAU, Beginning at byte 33 (the 
34th byte), in hex, the values are 
9C 02 10 OODO iO. Change byte 35 to 
a (froi NOP to JHf past lodule check) 
leaving the values 9C 02 10 11 DO &0. 

If any other problees arise, ho 

Mill, of course, give full coverage as 
quiCKly as possible so that everyone 
can eake full use of the fantastic GK 

device. Additionally, He have delayed 
getting into any advanced projects 
until after release of the 6K disk, in 
order to attespt to avoid conflict 
Hith the location of code froe Hillers 
Sraphics. Ne'U try to bring you soie 
advanced projects soon. 
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SUBSCRIPTIONS (PER YEAR) i 
U.S. AND POSSESSIONS 



SUP£M 99 MONTHLY ORDER FORH 



NiiflE 
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FIRST CLASS 

THIRD CLASS 
OTHER COUNTRIES 

AIR NAIL 

SURFACE MAIL 
INDIVIDUAL COPIESi 
U.S. SUBSCRIBERS 

FIRST CLASS 

THIRD CLASS 
CANADA SUBSCRIBERS 
OTHER 

Check or Money Order in U.S. funds* 
coded -for processing through the 
U.S. Federal Reserve Bank System. 
No billings or credit sales. 
(all issues available at press time) 



«16.00 

«i2.00 

•26.50 
•16. OO 



• 1.35 

• 1.00 

• 1.35 

• 1.50 



ADDRESS. 
CITY 



STATE 



ZIP 



COUNTRY 



For back issues* apeci-fy whichi 



READER FEEDBACK! (Attach coounents) 
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SUPER 99 HONTHLV is published monthly 
by Bytemaster Computer Services, 171 
Mustang Street, Sulphur* LA 70663. 
All correspondence received will be 
considered unconditionally assigned 
-for publication and copyright and 
subject to editing and comments by 
the editors o+ SUPER 99 MONTHLY. 
Each contribution to this issue and 
the issue as a whole Copyright 1986 
by Bytemaster Computer Services. All 
rights reserved. Copying done -for 
other than personal archival or 
internal reference use without the 
permission of Bytemaster Computer 
Services is prohibited. Bytemaster 
Computer Services assumes no 
liability for errors in articles. 
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STANDARD KEY 



1 

2 



Comput 
Modul e 



A 
XB 
TW 
EA 



t 3 

t 4 

I 5 

t 6 
I 

I 7 



RS-232 B 

Disk Drive B 
Expansion Box A 
Disk B 

Controller 
Memory Card B 



I 9 Monitor or TV B 
I 10 Printer B 
I 15 GRAM device A 
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I GRAM Kracker is a registered trademark of Millers Graphics 



TI-99/4A 
Extended BASIC 
T I -Writer 
Editor /Assembler 

TI 

TEAC 55-B 

TI 

CorComp 

MYARC MEXP-1 

(128K> 

TI Color Monitor 

Gemini 15-X 

GRAM Kracker (tm) 
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